object fprincipal: Tfprincipal
  Left = 192
  Top = 114
  Width = 696
  Height = 480
  Caption = 'Gomide Contabilidade'
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000000000000000008FFF00000000000000000000000000088
    7777000000000000000000000000008800770F00000000000000000000000880
    88F70FFF0000000000000000000008808880FFFFF00000000000000000000888
    000FFF8FFFF0000000000000000007888800F8088FFF00000000000000000078
    888800F0088F8800000000000000000077700FFFF00888880000000000000000
    000FFFFFFFF088800000000000000000000000FFF8880008BBBBBB8800000000
    000000000800BBBBBBBBBBBBB80000000000000000BBBBBBBBBBBBBBBBB00000
    00000000BBBBBBBBB0000BBBBBB00000000000BB87000000000BB0BBBB800000
    000000008B8BBBBBBBBBB00BB80000000000BBBBBBBBBBBBBBBBBBB000000000
    00BBBBBB0000000000BBB0BB0F000000BBBBB0008888888870BB0B0B0FF0000B
    BBB00888BBBBBBB070BB0BB00FF0000BB0088BBBBBBBBBB070BB0B700000000B
    088BBBBBBBBBBB070BB0BB00000000008BBBBBBBBBBBBB070BB0BB0000000000
    0BBBBBBBBBBBB070BB0BB7000000000008BBBBBBBBBBB070BB0BB00000000000
    008BBBBBBBBB070BB0BB0000000000000000BBBBBBB070BB0BB0000000000000
    0000088888070BB0B0000000000000000000000000BBBB000000000000000000
    00000000BBBB000000000000000000000000000000000000000000000000E07F
    FFFFC01FFFFF8007FFFF8003FFFF0000FFFF00007FFF00001FFF000007FF8000
    03FFC0000007F0000001FC000000FFC00000FFE00000FFC00000FF800000FE00
    0001F8000000F0000000E0000000C0000000C0000009C000000FC000000FF000
    001FF000003FF800007FFC0000FFFF0001FFFF8007FFFFC03FFFFFF0FFFF}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 407
    Width = 688
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Dbcontas: TDataSource
    DataSet = Contasdb
    Left = 552
    Top = 368
  end
  object Contasdb: TTable
    Active = True
    DatabaseName = 'Gomide'
    FieldDefs = <
      item
        Name = 'Codigo'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'Nome'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'Data'
        DataType = ftDate
      end
      item
        Name = 'Saldoinicial'
        DataType = ftFloat
      end
      item
        Name = 'Saldoatual'
        DataType = ftFloat
      end>
    IndexDefs = <
      item
        Fields = 'Codigo'
        Options = [ixPrimary, ixUnique]
      end>
    IndexFieldNames = 'Codigo'
    StoreDefs = True
    TableName = 'contas.db'
    Left = 584
    Top = 368
    object ContasdbCodigo: TStringField
      FieldName = 'Codigo'
      Size = 6
    end
    object ContasdbNome: TStringField
      FieldName = 'Nome'
      Size = 40
    end
    object ContasdbData: TDateField
      FieldName = 'Data'
    end
    object ContasdbSaldoinicial: TFloatField
      FieldName = 'Saldoinicial'
      DisplayFormat = '#,##0.00'
    end
    object ContasdbSaldoatual: TFloatField
      FieldName = 'Saldoatual'
      DisplayFormat = '#,##0.00'
    end
  end
  object dbfcontas: TDataSource
    DataSet = contasdbf
    Left = 552
    Top = 400
  end
  object contasdbf: TTable
    Active = True
    DatabaseName = 'Gomide'
    TableName = 'CONTAS.DBF'
    Left = 584
    Top = 400
    object contasdbfCODI: TSmallintField
      FieldName = 'CODI'
    end
    object contasdbfNOME: TStringField
      FieldName = 'NOME'
      Size = 35
    end
    object contasdbfACUM: TStringField
      FieldName = 'ACUM'
      Size = 1
    end
    object contasdbfSALD: TFloatField
      FieldName = 'SALD'
    end
    object contasdbfPREV: TFloatField
      FieldName = 'PREV'
    end
    object contasdbfATUA: TFloatField
      FieldName = 'ATUA'
    end
    object contasdbfDATA: TDateField
      FieldName = 'DATA'
    end
    object contasdbfANTERIOR: TFloatField
      FieldName = 'ANTERIOR'
    end
    object contasdbfDEBITO: TFloatField
      FieldName = 'DEBITO'
    end
    object contasdbfCREDITO: TFloatField
      FieldName = 'CREDITO'
    end
  end
  object dbhp: TDataSource
    DataSet = hpdb
    Left = 616
    Top = 368
  end
  object hpdb: TTable
    Active = True
    DatabaseName = 'Gomide'
    IndexFieldNames = 'Codigo'
    TableName = 'hp.db'
    Left = 616
    Top = 400
    object hpdbCodigo: TFloatField
      FieldName = 'Codigo'
    end
    object hpdbNome: TStringField
      FieldName = 'Nome'
      Size = 40
    end
  end
  object dbfhp: TDataSource
    DataSet = hpdbf
    Left = 648
    Top = 368
  end
  object hpdbf: TTable
    Active = True
    DatabaseName = 'Gomide'
    TableName = 'hp.dbf'
    Left = 648
    Top = 400
    object hpdbfCODIGO: TSmallintField
      FieldName = 'CODIGO'
    end
    object hpdbfHISTOR: TStringField
      FieldName = 'HISTOR'
      Size = 30
    end
  end
  object MainMenu1: TMainMenu
    Left = 104
    Top = 64
    object Clientes1: TMenuItem
      Caption = '&Clientes'
      OnClick = Clientes1Click
    end
    object Contas1: TMenuItem
      Caption = 'C&ontas'
      OnClick = Contas1Click
    end
    object Histricos1: TMenuItem
      Caption = '&Hist'#243'ricos'
      OnClick = Histricos1Click
    end
    object Lancamentos1: TMenuItem
      Caption = '&Lancamentos'
      OnClick = Lancamentos1Click
    end
    object Pagamentos1: TMenuItem
      Caption = '&Pagamentos'
    end
    object Recebimentos1: TMenuItem
      Caption = '&Recebimentos'
    end
    object Fim1: TMenuItem
      Caption = 'Relatorios'
      object Saldos1: TMenuItem
        Caption = '&Saldos'
        OnClick = Saldos1Click
      end
      object Razao1: TMenuItem
        Caption = '&Razao'
      end
      object Cheques1: TMenuItem
        Caption = '&Cheques'
      end
    end
    object Fim2: TMenuItem
      Caption = '&Fim'
      OnClick = Fim2Click
    end
  end
end
